100 GOTO120
110 RETURN
120 CLR:DIMTT$(120),H$(12),C(7),MU$(12),NO(12)
130 SP$="                                       ":X$=CHR$(13):POKE646,RND(-TI)
140 H$(12)="     [218][218][218][218]  OPTION MENU  [218][218][218][218]"
150 POKE53281,0:POKE53280,0:PRINTCHR$(142)"[147]";:GOTO290
160 PRINT"";
170 PRINT"  [151][169][153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
180 PRINT" [151][169] [153][221]                                  [221]"
190 PRINT" [151]  [153][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
200 FORI=1TO12:PRINT" [151]  [153][221][152]                                  [153][221]":NEXT
210 PRINT" [151]  [153][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
220 PRINT" [151] n                                   [146][169]"
230 PRINT" n                                   [146][169]"
240 PRINT" [154][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
250 FORI=1TO4:PRINT" [159]                                      ":NEXT
260 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
270 PRINT"";:RETURN
280 REM SETUP
290 GOSUB160:REM MENU
300 FORI=1TO7:READC(I):NEXT:FORI=1TO12:READMU$(I):NEXT
310 MS$="PLEASE WAIT 7 SECONDS...":GOSUB550
320 OPEN2,8,2,"LISTS":GET#2,A$,A$:FORI=1TO110:INPUT#2,TT$(I):NEXT:CLOSE2
330 GOSUB1450
340 LT=0:POKE214,24
341 POKE211,0:SYS58732:PRINT"[146]                                      [145]"
342 MS$="PLEASE SELECT TOP-TEN TOPIC":GOSUB550:T(0)=0:T(1)=0:S(0)=0:S(1)=0:IT=1
350 GOSUB1360:LT=0:NO$="111100000000":FORI=1TO10:H$(I)=TT$(I):NEXT
360 GOSUB570:IFIT=12THENGOSUB780:GOTO350
370 REM GAME
380 MS$="RANDOMIZING THE LIST...":GOSUB550:GOSUB700:NO$="000000000000":POKE211,0
381 POKE214,24:SYS58732:PRINT"[146][159]                                      [145]"
382 PRINTSPC(20-LEN(TT$(LT))/2)TT$(LT)"[145]"
390 MS$=PL$(PL)+"PICK ITEM TO MOVE...":GOSUB550:GOSUB570
400 IFIT=12THENGOSUB780:GOTO460
410 IFTT$(LT*10+IT)=H$(IT)THENT(PL)=T(PL)+1:GOTO460
420 MS$=PL$(PL)+"PLACE YOUR PICK...":GOSUB550:GOSUB1210
430 T(PL)=T(PL)+1
440 IFTT$(LT*10+IT)=H$(IT)THENS(PL)=S(PL)+1:FORI=1TO3:GOSUB1780:NEXT:GOTO480
450 IFTT$(LT*10+IT)<>H$(IT)THENGOSUB1730
460 GOSUB1730:IFNPTHENLP=NOTLP:PL=ABS(LP)
470 IFMT=4THENMT=1:GOTO340
480 GOSUB1360:GOTO390
490 STOP
500 DATA 15,12,11,12,15,1,15
510 DATATHIS LIST IS IN ORDER!,SEE WHICH ITEMS ARE OUT-OF-PLACE
520 DATAWIMP OUT AND SEE SOLUTION,TRY A DIFFERENT SUBJECT,EXIT TO LOADSTAR
530 DATA,,,,,,"     [218][218][218][218] RETURN TO LIST [218][218][218][218]"
540 REM PRINT MESSAGE AT TOP OF MENU
550 PRINT"[155]"LEFT$(SP$,34)""SPC(21-LEN(MS$)/2)MS$:RETURN
560 REM GENERIC MENU
570 IFIT=0THENIT=1
580 PRINT"";:FORI=1TO12
590 PRINT"[152] "H$(I)LEFT$(SP$,33-LEN(H$(I))):NEXT:PRINT
600 GETA$:GOSUB660:IFA$<>"[145]"ANDA$<>""ANDA$<>X$THEN600
610 IFA$=""THENC=2.5:GOSUB670:IT=IT+1:IFIT>12THENIT=1
620 IFA$="[145]"THENC=2.5:GOSUB670:IT=IT-1:IFIT<1THENIT=12
630 C=5.5:GOSUB670:IFH$(IT)=""THEN610
640 IFA$=X$THENRETURN
650 GOTO600
660 C=C+.5:IFC>7THENC=1
670 POKE646,C(C):POKE214,2+IT:POKE211,4:SYS58732
680 PRINT" "H$(IT)LEFT$(SP$,33-LEN(H$(IT))):RETURN
690 REM RANDOMIZE LIST
700 LT=IT:FORI=1TO10:H$(I)=TT$(IT*10+I):NEXT
710 FORI=1TO10
720 P=INT(RND(0)*10)+1
730 IFH$(P)=""THENP=P-1:GOTO730
740 IFH$(I)=""THENNEXT:GOTO770
750 A$=H$(I):H$(I)=H$(P):H$(P)=A$
760 NEXT
770 MS$=" ":GOSUB550:RETURN
780 GOSUB1540:MS$="OPTION[160]MENU":GOSUB550:MT=1:PRINT"";:FORI=1TO12
790 PRINT"[152] "MU$(I)LEFT$(SP$,33-LEN(MU$(I))):NEXT:PRINT
800 IFNO(1)THENPOKE631,ASC(""):POKE198,1
810 GETA$:GOSUB880:IFA$<>"[145]"ANDA$<>""ANDA$<>X$THEN810
820 IFA$=""THENC=2.5:GOSUB890:MT=MT+1:IFMT>12THENMT=1
830 IFA$="[145]"THENC=2.5:GOSUB890:MT=MT-1:IFMT<1THENMT=12
840 C=5.5:GOSUB890:IFMU$(MT)=""ORNO(MT)THENPOKE198,0:GOTO820
850 IFA$=X$THENIFMT=12ORMT=4THENRETURN
860 IFA$=X$THENGOSUB910:MS$="":GOSUB550:GOTO780
870 GOTO810
880 C=C+.5:IFC>7THENC=1
890 POKE646,C(C):POKE214,2+MT:POKE211,4:SYS58732
900 PRINT" "MU$(MT)LEFT$(SP$,33-LEN(MU$(MT))):RETURN
910 ONMTGOSUB940,1050,1110,1170,1660,110,110,110,110,110,110,1180
920 RETURN
930 REM CHECK LIST INTEGRITY/WINNER
940 POKE198,0:FL=0:FORI=1TO10:IFTT$(LT*10+I)<>H$(I)THENFL=1
950 NEXT:IFFLTHENMS$="OH NO IT'S NOT! PRESS A KEY.":GOSUB550:GOSUB1730
960 IFFLTHENS(PL)=S(PL)-10:IFS(PL)<0THENS(PL)=0
970 IFFLTHTHENGOSUB1360:WAIT198,1:RETURN
980 MS$="YOU'RE RIGHT! YOU DID IT!":GOSUB550:S(PL)=S(PL)+10:T(PL)=T(PL)+10
990 NO$="111001111111":GOSUB1540:GOSUB1360:GOSUB1830:IFNPTHENGOSUB1010
1000 RETURN
1010 WI=0:IFS(1)>S(0)THENWI=1
1020 MS$=PL$(WI)+"WINS!  PRESS A KEY...":GOSUB550:POKE198,0:WAIT198,1
1030 NO$="111001111111":GOSUB1360:RETURN
1040 REM SEE WHICH ITEMS ARE MISPLACED
1050 PRINT"";:FORI=1TO10:POKE646,12
1060 IFTT$(LT*10+I)<>H$(I)THENPOKE646,11
1070 PRINT" "H$(I)LEFT$(SP$,33-LEN(H$(I))):NEXT:GOSUB1730
1080 MS$="SHADED ITEMS ARE MISPLACED":GOSUB550
1090 T(PL)=T(PL)+1:GOSUB1360:POKE198,0:WAIT198,1:RETURN
1100 REM WIMP OUT
1110 MS$="YOU SURE? YOU'LL LOSE ALL POINTS":GOSUB550:POKE198,0:WAIT198,1
1120 GETA$:IFA$<>"Y"THENRETURN
1130 PRINT"";:FORI=1TO10:GOSUB1730
1140 PRINT"[152] "TT$(LT*10+I)LEFT$(SP$,33-LEN(TT$(LT*10+I))):NEXT
1150 MS$="PRESS A KEY...":GOSUB550:POKE198,0
1160 S(PL)=0:T(PL)=T(PL)+1:GOSUB1360:WAIT198,1:GETA$:RETURN
1170 RETURN
1180 RETURN
1190 STOP
1200 REM PLACE ITEM
1210 P$=H$(IT):FL=0:FORI=10TO1STEP-1:IFH$(I)=""THENFL=I
1220 NEXT:IFFL=0THENFL=10
1230 IFFL<>10ANDFL<>0THENFL=FL-1
1240 GETA$:GOSUB660:IFA$<>"[145]"ANDA$<>""ANDA$<>X$THEN1240
1250 IFA$=""THENIFIT<FLTHENC=2.5:GOSUB1300:GOSUB670:IT=IT+1:IFIT>FLTHENIT=1
1260 IFA$="[145]"THENIFIT>1THENC=2.5:GOSUB1300:GOSUB670:IT=IT-1:IFIT<1THENIT=FL
1270 IFH$(IT)=""THEN1250
1280 IFA$=X$THENRETURN
1290 GOTO1240
1300 IFIT=12THENRETURN
1310 P1$=H$(IT+1):P2$=H$(IT-1)
1320 IFA$="[145]"THENH$(IT)=P2$:H$(IT-1)=P$
1330 IFA$=""THENH$(IT)=P1$:H$(IT+1)=P$
1340 RETURN
1350 REM TAKE CARE OF PLAYER INFO
1360 POKE214,20:POKE211,SP:SYS58732:POKE646,3
1370 PRINT"SCORE:    [157][157][157][157]"S(0);:IFNPTHENPRINTTAB(19)"SCORE:";
1380 IFNPTHENPOKE214,20:POKE211,28:SYS58732:PRINT"    [157][157][157][157]"S(1)
1390 POKE214,21:POKE211,SP:SYS58732
1400 PRINT"ACCURACY:    [157][157][157][157]";:IFT(0)THENPRINTINT(S(0)/(T(0)/100)+.5)"[157]%   ";
1401 IFNPTHENPRINTTAB(19)"ACCURACY:    "
1410 IFNPTHENPOKE214,21:POKE211,28:SYS58732
1420 IFNPTHENIFT(1)THENPRINT"    [157][157][157][157]"INT(S(1)/(T(1)/100)+.5)"[157]%   "
1430 RETURN
1440 REM ENTER PLAYER INFORMATION
1450 MS$="HOW MANY PLAYERS? (1 OR 2)":GOSUB550:NP=0:POKE198,0:WAIT198,1
1460 GETA$:IFA$<>"2"ANDA$<>"1"THEN1450
1470 IFA$="1"THENSP=13:RETURN
1480 SP=2:NP=1:MS$="PLAYER 1, ENTER YOUR NAME BELOW":GOSUB550
1490 POKE214,19:POKE211,4:SYS58732:LI=7:GOSUB1550:PL$(0)=W$+" ":IFW$=""THEN1480
1500 MS$="PLAYER 2, ENTER YOUR NAME BELOW":GOSUB550
1510 POKE214,19:POKE211,23:SYS58732:LI=7:GOSUB1550:IFW$=""THEN1500
1520 PL$(1)=W$+" ":RETURN
1530 REM ENABLE/DISABLE MENU FEATURES
1540 FORI=1TO12:NO(I)=VAL(MID$(NO$,I,1)):NEXT:RETURN
1550 W$="":LW=0:PRINT"[159]>[157]";:IFLIMIT=0THENLIMIT=80
1560 GETA$:IFA$="[145]"ORA$=""ORA$="[157]"ORA$=""ORA$=""ORA$="[147]"ORA$=""THEN1560
1570 LW=LEN(W$):AS=ASC(A$):IFAS=13ORAS=141ORAS=20THEN1630
1580 IFA$>="[193]"ANDA$<="[218]"THENAS=AS-128:A$=CHR$(AS)
1590 IFPEEK(653)=2ORPEEK(653)=4ORAS=148THEN1560
1600 IFLW=LIMIT AND(AS<>20ANDAS<>13ANDAS<>141)THEN1560
1610 IFAS=34OR(AS>=133ANDAS<=140)OR(AS>=1ANDAS<=31)THEN1560
1620 W$=W$+A$:PRINTA$">[157]";:LW=LEN(W$):GOTO1560
1630 IFAS=20ANDW$=""THEN1560                                
1640 IFAS=20ANDW$<>""THENW$=LEFT$(W$,LW-1):PRINT"[157]< [157][157]";:GOTO1560
1650 IFAS=13THENPRINT" ";:LW=LEN(W$):V=VAL(W$):LI=0:RETURN
1660 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1670 IF ER<>63 THEN PRINT"[147]":END
1680 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,0:POKE53280,0:PRINT"[147]"
1690 PRINT"[144]LOAD"Q$A$Q$",8"
1700 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
1720 REM BUZZER
1730 POKE54296,15:POKE54277,45:POKE54278,165
1740 POKE54276,33:POKE54272,5
1750 FORII=75TO6STEP-1:POKE54273,II:NEXT
1760 POKE54276,32:POKE54273,0:POKE54272,0:RETURN
1770 REM BELL SOUND
1780 POKE54296,15:POKE54277,0:POKE54278,247
1790 POKE 54276,17:POKE54273,50:POKE54272,0
1800 FORII=1TO4:POKE54273,40:NEXT:POKE54276,16:POKE54272,0
1810 RETURN
1820 REM YOU DID IT
1830 POKE54296,15:POKE54277,0:POKE54278,247
1840 POKE 54276,17:POKE54273,50:POKE54272,0
1850 FORI1=1TO8:FORII=40TO90:POKE54273,II:NEXT:NEXT:POKE54276,16:POKE54272,0
1860 RETURN